home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / frame gradients < prev    next >
Text File  |  1999-06-15  |  936b  |  26 lines
  1. Category: Filter Factory Gallery R
  2. Title: Frame Gradients
  3. Author: Harry the Raver
  4. Copyright: Copyright 1997 by Raverspassion@hotmail.com
  5.  
  6. ctl[0]: Scale Red
  7. ctl[1]: Scale Green
  8. ctl[2]: Scale Blue
  9. ctl[3]: Threshold
  10. ctl[4]: 
  11. ctl[5]: 
  12. ctl[6]:
  13. ctl[7]: 
  14. val[0]: 133
  15. val[1]: 133
  16. val[2]: 133
  17. val[3]: 255
  18. val[4]: 0
  19. val[5]: 0
  20. val[6]: 0
  21. val[7]: 0
  22. R:put(min(x*255/X,y*255/Y),0),put(min(255-x*255/X,y*255/Y),1),put(min(x*255/X,255-y*255/Y),2),put(min(255-x*255/X,255-y*255/Y),3),put(val(0,0,31),10),put(x<=X/2&&y<=Y/2?get(10)*get(0):x>X/2&&y<Y/2?get(10)*get(1):x<X/2&&y>Y/2?get(10)*get(2):get(10)*get(3),20),get(20)>ctl(3)?c:get(20)
  23. G:put(val(1,0,31),11),put(x<=X/2&&y<=Y/2?get(11)*get(0):x>X/2&&y<Y/2?get(11)*get(1):x<X/2&&y>Y/2?get(11)*get(2):get(11)*get(3),21),get(21)>ctl(3)?c:get(21)
  24. B:put(val(2,0,31),12),put(x<=X/2&&y<=Y/2?get(12)*get(0):x>X/2&&y<Y/2?get(12)*get(1):x<X/2&&y>Y/2?get(12)*get(2):get(12)*get(3),22),get(22)>ctl(3)?c:get(22)
  25. A:a
  26.